1 IFPEEK(816)=165ANDPEEK(817)=244THEN4
2 PRINT"[147]KILL CARTRIDGE!":END
4 POKE53280,7:POKE53281,1:POKE646,14
5 IFPEEK(16384)+PEEK(16386)<>322THENLOAD"A.CODE*",8,1
10 SYS16384:CLR
12 @3:"   [200]IER IST [162][194][207][210][196][197][210] [211][195][210][207][204][204][162]  - [196]ANKE AN [202]ASON FUER [162][194][207][210][196][197][210] [211][208][210][201][212][197][162]    "
13 REM  @+ZAHL  = SCROLL-TEMPO
14 PRINT"[147][194][207][210][196][197][210] [211][195][210][207][204][204] IST EINFACH ZU VERWENDEN."
16 PRINT"[215]ENN [196]U [196]IR DAS [204]ISTING MAL ANGESEHEN"
18 PRINT"HAST, IST'S [196]IR MOEGLICH, MIT DEM [208]RO-"
20 PRINT"GRAMM KLARZUKOMMEN UND SOLCHE"
22 PRINT"[211]CROLLER IN [196]EINEN [208]ROGGIS"
24 PRINT"ZU VERWENDEN ! "
26 PRINT"[196]ER [212]EXT KANN ANGEHALTEN WERDEN:"
28 GOSUB100:@0
30 PRINT"[206]EU GESTARTET:"
32 GOSUB100:@3
34 PRINT"[196]U KANNST DIE [198]ARBEN AENDERN:"
36 FORJ=0TO16:%J:FORK=0TO150:NEXTK,J
37 REM  %+ZAHL  = SCROLL-FARBE
38 PRINT"  [196]ER [212]EXT KANN WECHSELN:":_
40 @15:" [211][208][193][195][197] DRUECKEN!        ":&
41 REM  &  = ANHALTEN
42 FORJ=0TO200:GETA$:IFA$=" "THEN46
44 NEXT:GOTO40
46 _:" [198]ROEHLICHES [211]CROLLEN     ":@3
48 PRINT"[196]U KANNST DAS [212]EMPO ERHOEHEN"
50 GOSUB100
52 FORJ=3TO15:@J:FORK=0TO100:NEXTK,J
54 PRINT"	ODER VERMINDERN"
56 GOSUB100
58 FORJ=15TO1STEP-1:@J:FORK=0TO150:NEXTK,J:&
60 END
65 :
100 POKE198,0:PRINT"[211][208][193][195][197] DRUECKEN "
102 GETA$:IFA$<>" "THEN102
104 RETURN